inherited sprTownTypes: TsprTownTypes
  Left = 460
  Top = 315
  Width = 820
  Height = 410
  HelpContext = 1155
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1090#1080#1087#1086#1074' '#1085#1072#1089#1077#1083#1077#1085#1085#1099#1093' '#1087#1091#1085#1082#1090#1086#1074
  PixelsPerInch = 96
  TextHeight = 13
  inherited pStatusBar: TStatusBar
    Top = 364
    Width = 812
  end
  inherited ToolBar1: TToolBar
    Width = 812
  end
  inherited Panel2: TPanel
    Top = 25
    Width = 812
    Height = 339
    inherited PageControl1: TPageControl
      Width = 812
      Height = 339
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Width = 804
          Height = 311
          Caption = ' '#1058#1080#1087#1099' '#1085#1072#1089#1077#1083#1077#1085#1085#1099#1093' '#1087#1091#1085#1082#1090#1086#1074' '
          inherited dbgRefer: TDBGridEh
            Width = 800
            Height = 294
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SHORT_NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'VILLAGE'
                Footers = <>
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 804
          Height = 311
          Align = alClient
          Constraints.MinHeight = 123
          Constraints.MinWidth = 245
          object Label1: TLabel [0]
            Left = 84
            Top = 16
            Width = 17
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044
          end
          object Label2: TLabel [1]
            Left = 24
            Top = 36
            Width = 76
            Height = 13
            Alignment = taRightJustify
            Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1090#1080#1087#1072
          end
          object Label3: TLabel [2]
            Left = 8
            Top = 56
            Width = 91
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1086#1082#1088#1072#1097'.'#1085#1072#1079#1074#1072#1085#1080#1077
          end
          inherited pnlButtons: TPanel
            Top = 278
            Width = 800
            TabOrder = 4
            inherited SpeedButton1: TSpeedButton
              Left = 605
            end
            inherited SpeedButton2: TSpeedButton
              Left = 705
            end
          end
          object DBEditEh1: TDBEditEh
            Left = 104
            Top = 12
            Width = 57
            Height = 19
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'ID'
            DataSource = dscRefer
            EditButtons = <>
            Enabled = False
            Flat = True
            ReadOnly = True
            TabOrder = 0
            Visible = True
          end
          object DBEditEh2: TDBEditEh
            Left = 104
            Top = 34
            Width = 157
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 1
            Visible = True
            OnChange = DBEditEhChange
          end
          object DBEditEh3: TDBEditEh
            Left = 104
            Top = 56
            Width = 157
            Height = 19
            AlwaysShowBorder = True
            DataField = 'SHORT_NAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 2
            Visible = True
            OnChange = DBEditEhChange
          end
          object DBCheckBoxEh1: TDBCheckBoxEh
            Left = 29
            Top = 76
            Width = 88
            Height = 17
            Alignment = taLeftJustify
            AlwaysShowBorder = True
            Caption = #1055#1088#1080#1079#1085#1072#1082' '#1089#1077#1083#1072
            DataField = 'VILLAGE'
            DataSource = dscRefer
            Flat = True
            TabOrder = 3
            ValueChecked = '1'
            ValueUnchecked = '0'
            OnClick = DBEditEhChange
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Width = 812
    Height = 0
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE PAS_RTOWN_TYPE'
      'SET '
      '    NAME = :NAME,'
      '    SHORT_NAME = :SHORT_NAME,'
      '    VILLAGE = :VILLAGE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    PAS_RTOWN_TYPE'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO PAS_RTOWN_TYPE('
      '    NAME,'
      '    SHORT_NAME,'
      '    VILLAGE'
      ')'
      'VALUES('
      '    :NAME,'
      '    :SHORT_NAME,'
      '    :VILLAGE'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SHORT_NAME,'
      '    VILLAGE'
      'FROM'
      '    PAS_RTOWN_TYPE'
      ' WHERE '
      '    ID = :OLD_ID'
      'and @wherestr%1=1'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SHORT_NAME,'
      '    VILLAGE'
      'FROM'
      '    PAS_RTOWN_TYPE'
      '@where_str')
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReferNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1090#1080#1087#1072
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsReferSHORT_NAME: TFIBStringField
      DisplayLabel = #1057#1086#1082#1088#1072#1097'.'#1085#1072#1079#1074'.'
      FieldName = 'SHORT_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferVILLAGE: TFIBSmallIntField
      DefaultExpression = '0'
      DisplayLabel = #1055#1088#1080#1079#1085#1072#1082' '#1089#1077#1083#1072
      FieldName = 'VILLAGE'
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'sprTownTypes'
  end
end
